home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
il gioco del Kamasutra
/
Milo Manara Kamasutra.iso
/
mac
/
DATA
/
ParteIII
/
GameI
/
Spada.dir
/
00035_Script_35
< prev
next >
Wrap
Text File
|
1997-11-24
|
3KB
|
83 lines
on mouseEnter
set the cursor of sprite 38 to [the number of cast "MouseOpen", the number of cast "MouseOpenMask"]
end mouseEnte
on mouseleave
set the visible of sprite 38 to 0
end mouseleave
on mousedown
global oldloc, x0, y0, x1, y1
puppetsprite 38, true
set the cursor of sprite 38 to [the number of cast "MouseClose", the number of cast "MouseCloseMask"]
set x0 = the loch of sprite 38
set y0 = the locv of sprite 38
repeat while the stilldown
set the loc of sprite 38 to point(the mouseH,the mouseV)
updatestage
end repeat
Puppetsound 3,"Click2"
end mousedown
on mouseUp
global oldloc, x0, y0, x1, y1
global oldloc, DonnaTesto1, DonnaTesto2, DonnaTesto3, DonnaCard1, DonnaCard2, DonnaCard3
global Coppia1, Coppia2, Coppia3, Test1, Test2, Test3
set the cursor of sprite 38 to [the number of cast "MouseOpen", the number of cast "MouseOpenMask"]
if (Test1 = 0) and (inside(the loc of sprite 38, the rect of sprite 17 ) = 1) then
set the loc of sprite 38 to oldloc
puppetsprite 38, 0
set the membernum of sprite 24 to (the membernum of sprite 38)
set the loc of sprite 24 to point(172, 361)
set DonnaCard1 = the name of member (the membernum of sprite 38)
set the text of member 20 to "Donna " & (the name of member (the membernum of sprite 38))
put the text of member 20 into DonnaTesto1
updatestage
else if (Test2 = 0) and (inside(the loc of sprite 38, the rect of sprite 18 ) = 1) then
set the loc of sprite 38 to oldloc
puppetsprite 38, 0
set the membernum of sprite 25 to (the membernum of sprite 38)
set the loc of sprite 25 to point(362, 361)
set DonnaCard2 = the name of member (the membernum of sprite 38)
set the text of member 21 to "Donna " & (the name of member (the membernum of sprite 38))
put the text of member 21 into DonnaTesto2
updatestage
else if (Test3 = 0) and (inside(the loc of sprite 38, the rect of sprite 19 ) = 1) then
set the loc of sprite 38 to oldloc
puppetsprite 38, 0
set the membernum of sprite 26 to (the membernum of sprite 38)
set the loc of sprite 26 to point(552, 361)
set DonnaCard3 = the name of member (the membernum of sprite 38)
set the text of member 22 to "Donna " & (the name of member (the membernum of sprite 38))
put the text of member 22 into DonnaTesto3
updatestage
else
put the loch of sprite 38 into x1
put the locv of sprite 38 into y1
set passo = integer(abs(x1-x0))
if x1 <> x0 then
if x1 > x0 then
repeat with n = 20 down to 1
set the loch of sprite 38 = (x1 - passo/n)
set the locv of sprite 38 = ((y1-y0)*(x1 - passo/n) + (x1*y0 -x0*y1))/(x1-x0)
updatestage
end repeat
else
repeat with n = 20 down to 1
set the loch of sprite 38 = (x1 + passo/n)
set the locv of sprite 38 = ((y1-y0)*(x1 + passo/n) + (x1*y0 -x0*y1))/(x1-x0)
updatestage
end repeat
end if
end if
set the loch of sprite 38 = x0
set the locv of sprite 38 = y0
updatestage
end if
end mouseUp